home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / SFG-BACH.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-09-29  |  2.5 KB  |  43 lines
  1. 1 '  sfg.bas  Solfeggietto or, Solfaspaghettio
  2. 2 '   4 April 83               Richard Eaton
  3. 3 '                            ComputerLand Of Citrus Heights
  4. 4 '                            966 9092
  5. 5 KEY OFF:SCREEN 0,0:WIDTH 40:COLOR 8:CLS
  6. 6 DIM T$(30)
  7. 7 M$(1)="Solfeggietto"
  8. 8 M$(2)="C. Ph. E. Bach"
  9. 9 M$(0)="A Loose Rendition Of"
  10. 10 M$(3)="Never any faster"
  11. 11 M$(4)="than one can do"
  12. 12 M$(5)="well.  Use the"
  13. 13 M$(6)="pedal sparingly."
  14. 14 FOR I=0 TO 6
  15. 15     IF I <3 THEN OK = 1 :ELSE OK = 0
  16. 16     J = 4+X+I
  17. 17     LOCATE J,(39-LEN(M$(I)))/2
  18. 18     IF I=1 THEN COLOR 9:ELSE COLOR 1
  19. 19     PRINT M$(I);
  20. 20 X = X+OK
  21. 21 NEXT I
  22. 22 LOCATE 20,5
  23. 23 INPUT "Tempo (32 - 255) : ",SP
  24. 24 IF SP = 0 THEN SP = 60:ELSE IF SP<32 OR SP >255 THEN GOTO 23
  25. 25 LOCATE 20,23:PRINT SP;
  26. 26 TREB$="L32MbT=sp;O2"
  27. 27 T$(0)="L32o1e-ce-go2ce-dco1bgbo2dgfe-de-ce-g":T$(1)="o3ce-dcdco2bagfe-de-ce-go3c":T$(2)="e-dco2bbbo3dgfe-fe-"
  28. 28 T$(3)="o3l32ce-go4ce-dcdco3bagfe-de-co2ge-":T$(4)="co4co3ge-a-o1fa-o2cfa-o3ce-do2b-fdo1b-"
  29. 29 T$(5)="l32o3b-fdgo1e-gb-o2e-gb-o3dco2ag#ao3co2":T$(6)="agao3e-co2gao3e-co2gao3dco2f#a":T$(7)="O3ACO2F#AO3F#CO2DAO3CO2AF#DB-"
  30. 30 T$(8)="l32o0gb-o1dgb-agf#df#ao2dco1b-a":T$(9)="B-GB-O2DGB-AGAGF#EDCO1B-AB-A-B-O2DGB-AGF#DF#":T$(10)="AO3DCO2B-A-B-GB-O3DGB-AGAGF#AO2DCO1B-AB-GB-O3D":T$(11)="GDO2B-GP32O3GDO2BGBO3DGP32O2GO3G":T$(12)="O2GP32O2GO3GO2GO2B-GO3GO2GO2DGO3GO2G"
  31. 31 T$(13)="l32o3e-ce-go4co3ge-cp32o4co2gecego4c":T$(14)="p32o3co4co3co2ao3co4co3co2go3cb-cp32o3cb-cao0":T$(15)="fa-o1cfa-gfecego2co1b-a-gfgfao2cfagfgfedco1b-a-ga-fa-c"
  32. 32 T$(16)="l32o2fa-gfecego3co2b-a-ga-fa-co3fa-gfgfedc":T$(17)="b-a-ga-o3fco2a-fo3co2a-fca-fco1a-o2fco1a-o0l16d-.p32":T$(18)="l32o3a-fefgfefo0l16c.p32l32o2afefgf":T$(19)="efo0l16b-.p32l32o4do3fga-gfe-d"
  33. 33 T$(20)="o3e-go4do3gb-a-gfel16o0e-p16l32o3e-.l64e-de-dc":T$(21)="l32do2e-go3go2go0co2go3go2go0b-o2go3fo2go0do2go3fo2gb-g":T$(22)="o3eo2gp32o2go3eo2gl64fal32o3e-o5co3e-l64o3fal32o3e-o5c":T$(23)="o3e-o1a-o2fo3do2fo1a-o2fo3do2fl64e-gl32o3d-o4b-":T$(24)="
  34. 34 T$(25)="o0f#o2e-o3co2e-p32o2e-o3co2e-p32e-":T$(26)="o3co2e-o0f#o3co4co3co0f#o3co4co3co0go3ce-g":T$(27)="o4co3ge-cge-co2go3fdo2bfe-o1ce-go2ce-dco1bgbo2dgfe-de-ce-go3ce-d":T$(28)="CDCO2BAGFE-DE-CE-GO3CE-DCO2BGBO3DGFE-DE-CE-":T$(29)="GO4CE-DO3BO4C"
  35. 35 ' and here's the program....
  36. 36 FOR I=0 TO 29:PLAY TREB$+T$(I) :NEXT
  37. 37 LOCATE 25,1:PRINT "Any key...";
  38. 38 A$=INKEY$:IF A$="" THEN 38 ELSE WIDTH 80:END
  39. 
  40. 36 FOR I=0 TO 29:PLAY TREB$+T$(I) :NEXT
  41. 37 LOCATE 25,1:PRINT "Any key...";
  42. 38 A$=INKEY$:IF A$="" THEN 38 ELSE WIDTH 80:END
  43.